/show_proc /def_show_proc load def

}B

{MapChar{/Symbol findfont}{descFont}ifelse 10 scalefont setfont _IntToChar show}forall

/def_show_proc{

{Col_Pos_X Sub_Col_Pos_X gsave show_proc grestore}for}B

/ColumnShow{Next_Col_Line 0 1 Get_Num_Sub_Cols

{false}ifelse}B

{dup 161 sub SymChr exch get dup 0 ne{exch}if 0 ne}

/MapChar{dup 161 sub dup 0 ge exch 55 lt and

dup /sub_col_array xdf length 1 sub /num_sub_cols xdf Init_Columns end}B

/Set_Up_Columns{ColumnDict begin dup /_column_array xdf length /num_of_columns xdf

/Next_Col_Line{_GetLeading neg _RMoveY currentpoint _GetBM le {Next_Column}if pop}B

{pop 0 showpage _DoPageHeader}if def _GetTM _GetLeading sub _MoveY end}B

/Next_Column{ColumnDict begin /_column _column 1 add dup num_of_columns ge

/Sub_Col_Pos_X{Get_Sub_Col dup xcheck{exec}if _Per_RMoveX}B

/Col_Pos_X{Get_Col _Per_MoveX}B

/Get_Col{ColumnDict begin _column_array _column get end}B

/Get_Sub_Col{ColumnDict begin sub_col_array exch get end}B

/Get_Num_Sub_Cols{ColumnDict /num_sub_cols get}B

/Init_Columns{ColumnDict begin /_column 0 def end _GetLM _GetTM moveto}B

0 0 0 0 0 0 184 224]def

0 0 216 214 0 187 68 0 0 0 0 0 0 0 0 0

165 177 163 179 0 109 182 229 213 112 242 0 0 87 0 0

176 0 0 0 0 0 0 210 211 212 0 0 185 0 0

/SymChr[

end

/num_sub_cols 0 def

/num_of_columns 1 def

/sub_col_array[0]def

/_column_array[0]def

/_column 0 def

ColumnDict begin

/ColumnDict 5 dict def